﻿Public Class Form6

    Private Sub TextBoxX1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBoxX1.Click
        If TextBoxX1.Text = "Search for a Game..." Then
            TextBoxX1.Text = ""
        End If
    End Sub
    Private Sub TextBoxX1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxX1.TextChanged
     
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        MsgBox("Modern Warfare 2 is the best-selling Xbox 360 game of all-time gets even bigger with more epic new multiplayer content, like Carnival,a large abandoned theme park that offers lots of unique vantage points that work well for all game modes. The once vibrant rides now sit idle and neglected as perfect cover points in one of the most original multiplayer locations for Modern Warfare 2. Fuel, a massive oil refinery with extremely long sightlines great for medium- to long-range firefights. The spacious surroundings offer a great sniper advantage; offices, warehouses, and buildings house objectives and provide opportunity for close-range firefights. Trailer Park, a medium-sized mobile estate with a maze of tight flank routes and lots of cover. Junk covered yards, deserted trailers, and debris-riddled surroundings offer intense firefights with a wide variety of vantage points and routes available. Strike, a large urban desert town, excellent for medium-to-large team games. The large monument, connecting streets, and surrounding buildings offer great firefights in Team Deathmatch, and great vantage points for objective team games. And Vacant, a deserted Russian office complex offering a great mixture of interior and exterior combat. Long hallways with minimal cover points offer a fast escape route for potential runners, but high accuracy and fast aiming is required when advancing through this large complex area.. Great for close combat!", MsgBoxStyle.Information)
    End Sub

    Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click
        MsgBox("Halo: Reach is a first-person shooter video game, developed by Bungie and published by Microsoft Game Studios for the Xbox 360 console. Reach was released in North America, Australia, and Europe on September 14, 2010. The game takes place in the year 2552, where humanity is locked in a war with the alien Covenant. Players control Noble Six, a member of an elite supersoldier squad, during the battle for the world of Reach. As the Covenant begin their assault on the planet, the UNSC begin their heroic yet ultimately futile effort to repel the alien invaders. Reach was originally announced at the Electronic Entertainment Expo 2009 in Los Angeles, California, with the first in-engine trailer shown at the 2009 Spike Video Game Awards. Players who purchased Halo 3: ODST were eligible to participate in a Reach multiplayer beta in May 2010; the beta allowed Bungie to gain player feedback for fixing bugs and making gameplay tweaks before shipping the final version. The developers focused on creating a compelling world, more difficult enemies, and updated graphics and audio. Halo: Reach grossed US$200 million on its launch day, setting a new record for the franchise. The game sold well in most territories, moving more than three million units its first month in North America. Critical reception was positive; reviewers from publications such as IGN, GamePro, and Official Xbox Magazine called it the best Halo title yet. Reach was Bungie's final Halo game, with future games overseen by the Microsoft subsidiary 343 Industries.",MsgBoxStyle.Information)
    End Sub

    Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        If TextBoxX1.Text = "Modern Warfare 2" Then
            ButtonX1.Visible = True
            Label1.Visible = True
            PictureBox1.Visible = False
            PictureBox2.Visible = True
        End If
    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        If TextBoxX1.Text = "Halo Reach" Then
            ButtonX2.Visible = True
            Label2.Visible = True
        End If
    End Sub
End Class